home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / gui-elements / sel-entry.mta < prev    next >
Encoding:
Text File  |  1994-12-13  |  1.5 KB  |  41 lines
  1.  
  2. % This sample shows how to
  3. % - Make the VAR-PARAMETER of TEST90 editable
  4. % - Give a set of selections for VAR-PARAMER of TEST90
  5. % you can export OBJ:TEXT90.V to your Application via MFX-Groups
  6. % use <ESC> to exit this sample
  7.  
  8. Malloc(90);
  9. @shortstart( ("test") ("bw") );
  10.  
  11. wdw(TEST 1 6 12 14 ("helpfile.inf") 1 StandardWDW);
  12.  
  13. o(TEST00  S .  0  0 36 1 Remark 1); bg(TEST00 . (" Select an")); eg();
  14. o(TEST01  S .  0  1 36 1 Remark 1); bg(TEST01 . (" Entry:") ); eg();
  15.  
  16. o(TEST90  S S  1  3  4 1 Standard 1);
  17.   bg(TEST90 . ("    ") );  % <----------------- That's what it's all about
  18.   eg();
  19.  
  20. o(TEST9A S .  1  5  4 1 Secure 1);
  21.  :TEST9B S .  1  6  4 1 Secure 1);
  22.  :TEST9C S .  1  7  4 1 Secure 1);
  23.  :TEST9D S .  1  8  4 1 Secure 1);
  24.  :TEST9E S .  1  9  4 1 Secure 1);
  25.  :TEST9F S .  1 10  4 1 Secure 1);
  26.  :TEST9G S .  1 11  4 1 Secure 1);
  27.  :TEST9H S .  1 12  4 1 Secure 1);
  28.   bg(TEST9A . (" A "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9A.V;"));eg();
  29.   bg(TEST9B . (" B "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9B.V;"));eg();
  30.   bg(TEST9C . (" C "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9C.V;"));eg();
  31.   bg(TEST9D . (" D "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9D.V;"));eg();
  32.   bg(TEST9E . (" E "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9E.V;"));eg();
  33.   bg(TEST9F . (" F "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9F.V;"));eg();
  34.   bg(TEST9G . (" G "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9G.V;"));eg();
  35.   bg(TEST9H . (" H "));cn(raK("(str)OBJ:TEST90.V:=(str)OBJ:TEST9H.V;"));eg();
  36.  
  37. ng( KEY ("TEST:27.0")); c( K ("Exit();") ); eg(); /* ESC:Zurueck */
  38.  
  39. End();
  40.  
  41.